home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / util4 / akcc36.lha / Programmers / Basic / WildCard.bas < prev   
BASIC Source File  |  1995-08-08  |  292b  |  17 lines
  1.  
  2.  REM $VER: WildCard.bas V37.3 (25.7.94)
  3.  
  4.  DECLARE FUNCTION AKCCWildCmp% LIBRARY
  5.  
  6.  LIBRARY "akcc_gen0.library"
  7.  
  8.   flag% = AKCCWildCmp%(SADD("OrigString"+CHR$(0)),SADD("Orig*"+CHR$(0)))
  9.  
  10.   IF flag%=1 THEN
  11.          PRINT "WildCard fits !"
  12.         ELSE
  13.          PRINT "WildCard does not match !"
  14.   END IF
  15.  
  16. END
  17.